home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxnif.plp < prev    next >
Text File  |  1991-10-18  |  11KB  |  423 lines
  1. /*    NIFTYでの処理から一つ取り出す    */
  2. %nifty    {
  3.     [n]
  4.     var    a    [24];
  5.     var    onenif    [100];
  6.     onenif:=@getline(NIFTY,n,1);
  7.     case    (@nochar(onenif),
  8.         0,{a:={                    }},
  9.         2,{a:={                    }},
  10.         , {a:=@nth(onenif,1,{/})|{/}|@nth(onenif,3,{/})}
  11.         );
  12.     case    (@nochar(n)=1,
  13.         {Yes},{a:={0}|n|{:}|a},
  14.         {No}, {a:=n|{:}|a}
  15.         );
  16.     im(a);
  17.     };
  18.  
  19. /*    NIFTYでの処理実行日の指定    */
  20. %date    {
  21.     [msg,default]
  22.     select    (msg,
  23.         Wtime4,{im(default)},
  24.         { 毎  日 },{im({毎日})},
  25.         { 奇数日 },{im({奇数})},
  26.         { 偶数日 },{im({偶数})},
  27.         { 日  曜 },{im({日曜})},
  28.         { 月  曜 },{im({月曜})},
  29.         { 火  曜 },{im({火曜})},
  30.         { 水  曜 },{im({水曜})},
  31.         { 木  曜 },{im({木曜})},
  32.         { 金  曜 },{im({金曜})},
  33.         { 土  曜 },{im({土曜})},
  34.         {毎月 1日},{im({01日})},
  35.         {毎月05日},{im({05日})},
  36.         {毎月10日},{im({10日})},
  37.         {毎月15日},{im({15日})},
  38.         {毎月20日},{im({20日})},
  39.         {毎月25日},{im({25日})},
  40.         {毎月30日},{im({30日})}
  41.         );
  42.     };
  43.  
  44. /*    設定情報をファイルに保存する    */
  45. %writeNIF
  46.     {
  47.     dispoff({Yes});
  48.     setcdir(CDIR);
  49.     command({copy }|NIFFILE|{ FAPXNIF.BAK});
  50.     command({del }|NIFFILE);
  51.     dispoff({No});
  52.     write(NIFFILE,
  53.         {NIFTY    :=}|@xc({7b})|NIFTY    |@xc({7d})|{;\n});
  54.     };
  55.  
  56. /*    設定情報をもとに戻す    */
  57. %CANCEL    {
  58.     SNDMSG({erande_f.snd});
  59.     footnote({本当にもとに戻してもいいですか？});
  60.     select    ({本当にもとに戻してもいいですか？},
  61.         Wtime4,,
  62.         { Ｏ Ｋ },
  63.         {case(@filechk(NIFFILE),{Yes},{setcdir(CDIR);#FAPXNIF.SET})},
  64.         { Ｎ Ｇ },
  65.         );
  66.     };
  67.  
  68. /*    フォーラムの指定    */
  69. %setFORUM
  70.     {
  71.     [n]
  72.     %NIFTY1    @getline(NIFTY,n,1);
  73.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  74.                     ,{im(@nth(NIFTY1,2,{/}))})};
  75.     %d2    @d;
  76.  
  77.     SNDMSG({nyuryo_f.snd});
  78.     footnote({フォーラム名を入力して下さい});
  79.     %forum    @input({フォーラム名を入力して下さい},,
  80.             @nth(@getline(NIFTY,n,1),3,{/}));
  81.  
  82.     SNDMSG({nyuryo_f.snd});
  83.     footnote(forum|{の会議室番号を入力して下さい});
  84.     %mes    @input(forum|{の会議室番号を指定して下さい\n}|
  85.             {    指定された会議室の未読を読みます\n}|
  86.             {    ｶﾝﾏ｢,｣で区切って複数指定できます\n\n}|
  87.             {    ｢all｣と指定すると全ての会議室の未読を読みます},,
  88.             @nth(@getline(NIFTY,n,1),4,{/}));
  89.  
  90.     SNDMSG({nyuryo_f.snd});
  91.     footnote(forum|{のライブラリ番号を入力して下さい});
  92.     %lib    @input(forum|{のライブラリ番号を指定して下さい\n}|
  93.             {    指定されたライブラリのデータ一覧を見ます\n}|
  94.             {    ｶﾝﾏ｢,｣で区切って複数指定できます\n\n}|
  95.             {    ｢lib｣と指定するとライブラリ一覧が表示されます},,
  96.             @nth(@getline(NIFTY,n,1),5,{/}));
  97.  
  98.     SNDMSG({erande_f.snd});
  99.     footnote(forum|{を実行する日を指定して下さい});
  100.     %dat    @date(forum|{を実行する日を指定して下さい  現在は }|d2|{ です},
  101.             d2);
  102.     case    (dat,
  103.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  104.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  105.             {フォーラム}|{/}|dat|{/}|
  106.             forum|{/}|mes|{/}|lib|{/\n}|
  107.             @getline(NIFTY,n+1)}
  108.         );
  109.     };
  110.  
  111. /*    ホームパーティの指定    */
  112. %setHP    {
  113.     [n]
  114.     %NIFTY1    @getline(NIFTY,n,1);
  115.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  116.                     ,{im(@nth(NIFTY1,2,{/}))})};
  117.     %d2    @d;
  118.  
  119.     SNDMSG({nyuryo_f.snd});
  120.     footnote({ホームパーティのＩＤを入力して下さい});
  121.     %id    @input({ホームパーティのＩＤを入力して下さい},,
  122.             @nth(NIFTY1,3,{/}));
  123.  
  124.     SNDMSG({nyuryo_f.snd});
  125.     footnote(id|{のホームパーティのパスワードを入力して下さい});
  126.     %pass    @input(id|{のホームパーティのパスワードを入力して下さい},,
  127.             @nth(NIFTY1,4,{/}));
  128.  
  129.     SNDMSG({erande_f.snd});
  130.     footnote(id|{のﾎｰﾑﾊﾟｰﾃｨを実行する日を指定して下さい});
  131.     %dat    @date({ﾎｰﾑﾊﾟｰﾃｨを実行する日を指定して下さい  現在は }|d2|
  132.             { です},d2);
  133.     case    (dat,
  134.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  135.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  136.             {ﾎｰﾑﾊﾟｰﾃｨ}|{/}|dat|{/}|
  137.             id|{/}|pass|{/\n}|
  138.             @getline(NIFTY,n+1)}
  139.         );
  140.     };
  141.  
  142. /*    課金情報の確認指定    */
  143. %setBILL{
  144.     [n]
  145.     %NIFTY1    @getline(NIFTY,n,1);
  146.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  147.                     ,{im(@nth(NIFTY1,2,{/}))})};
  148.     %d2    @d;
  149.  
  150.     SNDMSG({erande_f.snd});
  151.     footnote({課金情報確認を実行する日を指定して下さい});
  152.     %dat    @date({課金情報確認を実行する日を指定して下さい  現在は }|
  153.             d2|{ です},d2);
  154.     case    (dat,
  155.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  156.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  157.             {課金情報確認}|{/}|dat|{//\n}|
  158.             @getline(NIFTY,n+1)}
  159.         );
  160.     };
  161.  
  162. /*    ＦＭＮＥＷＳの確認指定    */
  163. %setFMNEWS
  164.     {
  165.     [n]
  166.     %NIFTY1    @getline(NIFTY,n,1);
  167.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  168.                     ,{im(@nth(NIFTY1,2,{/}))})};
  169.     %d2    @d;
  170.  
  171.     SNDMSG({erande_f.snd});
  172.     footnote({ＦＭ情報確認を実行する日を指定して下さい});
  173.     %dat    @date({ＦＭ情報確認を実行する日を指定して下さい  現在は }|
  174.             d2|{ です},d2);
  175.     case    (dat,
  176.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  177.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  178.             {ＦＭ情報確認}|{/}|dat|{//\n}|@getline(NIFTY,n+1)}
  179.         );
  180.     };
  181.  
  182. /*    自由行動（チャット等）の指定    */
  183. %setCHAT{
  184.     [n]
  185.     %NIFTY1    @getline(NIFTY,n,1);
  186.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  187.                     ,{im(@nth(NIFTY1,2,{/}))})};
  188.     %d2    @d;
  189.  
  190.     SNDMSG({erande_f.snd});
  191.     footnote({自由行動を実行する日を指定して下さい});
  192.     %dat    @date({自由行動を実行する日を指定して下さい  現在は }|
  193.             d2|{ です},d2);
  194.  
  195.     case    (dat,
  196.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  197.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  198.             {自由行動}|{/}|dat|{//\n}|@getline(NIFTY,n+1)}
  199.         );
  200.     };
  201.  
  202. /*    再ログイン処理の指定    */
  203. %setRECON
  204.     {
  205.     [n]
  206.     %NIFTY1    @getline(NIFTY,n,1);
  207.     %d    {case    (@nth(NIFTY1,2,{/}),{},{im({未設定})},
  208.                     ,{im(@nth(NIFTY1,2,{/}))})};
  209.     %d2    @d;
  210.  
  211.     %uid    {case    (@nochar(@nth(NIFTY1,3,{/})),
  212.             0,{im({})},
  213.             2,{im({})},
  214.             , {im(@nth(NIFTY1,3,{/}))}
  215.             )
  216.         };
  217.     %pwd    {case    (@nochar(@nth(NIFTY1,4,{/})),
  218.             0,{im({})},
  219.             2,{im({})},
  220.             , {im(@nth(NIFTY1,4,{/}))}
  221.             )
  222.         };
  223.  
  224.  
  225.     %UID    {
  226.         SNDMSG({nyuryo_f.snd});
  227.         footnote({ユーザーＩＤを入力して下さい});
  228.         %id    @input({ユーザーＩＤを入力して下さい\n}|
  229.             {    ユーザーＩＤは必ず半角の大文字で入力して下さい},
  230.                 ,@uid);
  231.         case    (@nochar(id),
  232.             8,{im(id)},
  233.             ,UID);
  234.         };
  235.  
  236.     %PWD    {
  237.         SNDMSG({nyuryo_f.snd});
  238.         footnote({パスワードを入力して下さい});
  239.         %pass    @input({パスワードを入力して下さい\n}|
  240.                 {    ｢*｣を指定すると実行時に入力可能です},
  241.                 ,@pwd);
  242.         case(pass,{},PWD,,{im(pass)});
  243.         };
  244.  
  245.     %UID2    @UID;
  246.     %PWD2    @PWD;
  247.     SNDMSG({erande_f.snd});
  248.     footnote({再ログインを実行する日を指定して下さい});
  249.     %dat    @date({再ログインを実行する日を指定して下さい  現在は }|
  250.                 d2|{ です},d2);
  251.     case    (dat,
  252.         {del },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|@getline(NIFTY,n+1)},
  253.         ,      {NIFTY:=@getline(NIFTY,1,n-1)|
  254.                 {再ログイン}|{/}|dat|{/}|UID2|{/}|PWD2|{/\n}|
  255.                 @getline(NIFTY,n+1)}
  256.         );
  257.     };
  258.  
  259. /*    NIFTYで行う処理を設定する    */
  260. %setNIF    {
  261.     [n]
  262.     case    (@nth(@getline(NIFTY,n,1),1,{/})<>{},
  263.         {Yes}, {SNDMSG({erande_f.snd});
  264.             footnote({処理を選択してください});
  265.             select({処理を選択してください},
  266.                 Wtime4,,
  267.                 { 変  更 },{setNIF1(n)},
  268.                 { 削  除 },{NIFTY:=@getline(NIFTY,1,n-1)|{\n}|
  269.                             @getline(NIFTY,n+1)},
  270.                 { 中  止 },
  271.                 );
  272.                },
  273.         {No},{setNIF1(n)}
  274.         );
  275.     };
  276.  
  277. %setNIF1{
  278.     [n]
  279.     case    (@nth(@getline(NIFTY,n,1),1,{/}),
  280.         {フォーラム},{setFORUM(n)},
  281.         {ﾎｰﾑﾊﾟｰﾃｨ},{setHP(n)},
  282.         {課金情報確認},{setBILL(n)},
  283.         {ＦＭ情報確認},{setFMNEWS(n)},
  284.         {自由行動},{setCHAT(n)},
  285.         {再ログイン},{setRECON(n)},
  286.         ,{SNDMSG({erande_f.snd});
  287.           footnote({ＮＩＦＴＹで行う処理を指定して下さい});
  288.           select({ＮＩＦＴＹで行う処理を指定して下さい},
  289.             Wtime4,,
  290.             {  フォーラム  },{setFORUM(n)},
  291.             {ホームパーティ},{setHP(n)},
  292.             { 課金情報確認 },{setBILL(n)},
  293.             { ＦＭ情報確認 },{setFMNEWS(n)},
  294.             {   自由通信   },{setCHAT(n)},
  295.             {  再ログイン  },{setRECON(n)},
  296.             {     終了     },
  297.             );}
  298.         );
  299.     };
  300.  
  301. /*    NIFTYで行う処理を並べ変える    */
  302. %renNIF    {
  303.     var    num    [60];
  304.     var    count    [60];
  305.     var    NIFTY2    [3074];
  306.     count:=0;
  307.     num    :={};
  308.     NIFTY2    :={};
  309.  
  310.     %nif01    @nifty(1);
  311.     %nif02    @nifty(2);
  312.     %nif03    @nifty(3);
  313.     %nif04    @nifty(4);
  314.     %nif05    @nifty(5);
  315.     %nif06    @nifty(6);
  316.     %nif07    @nifty(7);
  317.     %nif08    @nifty(8);
  318.     %nif09    @nifty(9);
  319.     %nif10    @nifty(10);
  320.     %nif11    @nifty(11);
  321.     %nif12    @nifty(12);
  322.     %nif13    @nifty(13);
  323.     %nif14    @nifty(14);
  324.     %nif15    @nifty(15);
  325.     %nif16    @nifty(16);
  326.     %nif17    @nifty(17);
  327.     %nif18    @nifty(18);
  328.     %nif19    @nifty(19);
  329.     %nif20    @nifty(20);
  330.  
  331.     %renum    {
  332.         [n]
  333.         case    (num,{},{num:=n},,{num:=num|{,}|n});
  334.         case    (NIFTY2,
  335.             {},{NIFTY2:=@getline(NIFTY,n,1)},
  336.             ,  {NIFTY2:=NIFTY2|@getline(NIFTY,n,1)}
  337.             );
  338.         count:=count+1;
  339.         };
  340.  
  341.     %cancel1{
  342.         case    (count>0,{Yes},{count:=count-1});
  343.         case    (count>0,
  344.             {Yes},{NIFTY2:=@getline(NIFTY2,1,count)},
  345.             {No}, {NIFTY2:={}}
  346.             );
  347.         num:=@body(num,,{,});
  348.         };
  349.  
  350.     loop    (
  351.         {
  352.         SNDMSG({erande_f.snd});
  353.         footnote({ＮＩＦＴＹで行う順序を指定して下さい});
  354.         display    ({現在 }|num|{ が指定されています\n});
  355.         select    ({ＮＩＦＴＹで行う順序を指定して下さい},,,
  356.             nif01,{renum(1);im({Yes})},
  357.             nif02,{renum(2);im({Yes})},
  358.             nif03,{renum(3);im({Yes})},
  359.             nif04,{renum(4);im({Yes})},
  360.             nif05,{renum(5);im({Yes})},
  361.             nif06,{renum(6);im({Yes})},
  362.             nif07,{renum(7);im({Yes})},
  363.             nif08,{renum(8);im({Yes})},
  364.             nif09,{renum(9);im({Yes})},
  365.             nif10,{renum(10);im({Yes})},
  366.             nif11,{renum(11);im({Yes})},
  367.             nif12,{renum(12);im({Yes})},
  368.             nif13,{renum(13);im({Yes})},
  369.             nif14,{renum(14);im({Yes})},
  370.             nif15,{renum(15);im({Yes})},
  371.             nif16,{renum(16);im({Yes})},
  372.             nif17,{renum(17);im({Yes})},
  373.             nif18,{renum(18);im({Yes})},
  374.             nif19,{renum(19);im({Yes})},
  375.             nif20,{renum(20);im({Yes})},
  376.             {    一  個  取  消    },
  377.             {cancel1;im({Yes})},
  378.             {      全  取  消      },
  379.             {num:={};NIFTY2:={};im({Yes})},
  380.             {    指  定  終  了    },
  381.             {NIFTY:=NIFTY2;im({No})}
  382.             );
  383.         }
  384.         );
  385.     };
  386.  
  387. /*    NIFTYで行う処理を設定する    */
  388. %setNIFTY
  389.     {
  390.     loop    (
  391.         {SNDMSG({erande_f.snd});
  392.          footnote({ＮＩＦＴＹで行う処理を指定して下さい});
  393.          select    ({ＮＩＦＴＹで行う処理を指定して下さい},,,
  394.             @nifty(1),{setNIF(1);im({Yes})},
  395.             @nifty(2),{setNIF(2);im({Yes})},
  396.             @nifty(3),{setNIF(3);im({Yes})},
  397.             @nifty(4),{setNIF(4);im({Yes})},
  398.             @nifty(5),{setNIF(5);im({Yes})},
  399.             @nifty(6),{setNIF(6);im({Yes})},
  400.             @nifty(7),{setNIF(7);im({Yes})},
  401.             @nifty(8),{setNIF(8);im({Yes})},
  402.             @nifty(9),{setNIF(9);im({Yes})},
  403.             @nifty(10),{setNIF(10);im({Yes})},
  404.             @nifty(11),{setNIF(11);im({Yes})},
  405.             @nifty(12),{setNIF(12);im({Yes})},
  406.             @nifty(13),{setNIF(13);im({Yes})},
  407.             @nifty(14),{setNIF(14);im({Yes})},
  408.             @nifty(15),{setNIF(15);im({Yes})},
  409.             @nifty(16),{setNIF(16);im({Yes})},
  410.             @nifty(17),{setNIF(17);im({Yes})},
  411.             @nifty(18),{setNIF(18);im({Yes})},
  412.             @nifty(19),{setNIF(19);im({Yes})},
  413.             @nifty(20),{setNIF(20);im({Yes})},
  414.             {    順  序  変  更    },{renNIF;im({Yes})},
  415.             {   元の設定にもどす   },{CANCEL;im({Yes})},
  416.             {  設定を保存して終了  },{writeNIF;im({No})}
  417.             );
  418.         }
  419.         );
  420.     };
  421.  
  422. setNIFTY;
  423.